home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 81 / 081.d81 / jukebox boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  931b  |  26 lines
  1. 100 poke53280,0:poke53281,0:print"[147]"
  2. 110 gosub 180
  3. 120 sys57812"jukebox.o",8,0:poke780,0:poke781,0:poke782,64:sys65493
  4. 130 :
  5. 140 poke 16387,8  :rem device number
  6. 150 poke 16388,64 :rem color preference
  7. 160 print "[147]":sys16384:goto270
  8. 170 :
  9. 180 poke214,14:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  10. 190 fori=1to4:print"                                      ":next
  11. 200 print"       [208]ublished on [204][207][193][196][211][212][193][210] #81      "
  12. 210 print"      Subscriptions 1-800-831-2694    "
  13. 220 print"           [193]ll [210]ights [210]eserved        "
  14. 225 print"                                      "
  15. 230 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  16. 240 au$="1890'[211] [202][213][203][197][194][207][216]":poke214,16:print:printspc(20-len(au$)/2)"[152]"au$
  17. 250 au$="[194]y [193]lan [194]eggerow   (c) 1991":poke214,18:print
  18. 260 printspc(20-len(au$)/2)"[152]"au$"":return
  19. 270 print"[147]"
  20. 275 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  21. 280 if er<>63 then print"[147]":end
  22. 290 a$="hello connect":q$=chr$(34)
  23. 300 print"[158]load"q$a$q$",8"
  24. 310 print"run":poke631,13:poke632,13:poke198,2:end
  25. 10000 open15,8,15,"s0:jukebox boot":close15:save"jukebox boot",8:end
  26.